home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / MIAWS / _HELP.DIR / 00020_Script_20 < prev    next >
Text File  |  1995-11-16  |  2KB  |  77 lines
  1. on lOpenHelpPalette curMovie, curLabel
  2.   global gHelpPalette, gFixPalObjHelp, gHelpOffScreen
  3.   global gHelpButtonList
  4.   
  5.   continue
  6.   
  7.   --if voidP(gHelpPalette) or (gHelpPalette = 0) then createHelpWindow
  8.   
  9.   if not voidP(gFixPalObjHelp) then gFixPalObjHelp(mPatchIt) 
  10.   
  11.   if curMovie = "TOC.DIR" then
  12.     if curLabel = "TOCM" then go label("C")
  13.     else if char 1 of curLabel = "O" then go label("CO")
  14.     else if curLabel = "TM" then go label("CT")
  15.     else if char 1 of curLabel = "P" then go label("CP")
  16.     else if curLabel = "SM" then go label("CS")
  17.     else if curLabel = "MM" then go label("CM")
  18.     else if curLabel = "UM" then go label("CU")
  19.     else exit
  20.   else
  21.     if curMovie = "STARMAP.DIR" then go label("S")
  22.     else if curMovie = "MOVIES.DIR" then go label("M")
  23.     else if curMovie = "POETRY.DIR" then go label("P")
  24.     else if char 1 of curMovie = "O" then go label("O")
  25.     else if curMovie = "TOUR.DIR" then go label("GU")
  26.     else if curMovie = "FIND.DIR" then go label("F")
  27.     else if curMovie = "_GLOSS.DIR" then go label("G")
  28.     else if curMovie = "SHOWGLOS.DIR" then go label("G")
  29.     else exit
  30.   end if
  31.   
  32.   
  33.   go to the frame + 1
  34.   
  35.   --put ">>> lOpenHelpPalette->gHelpButtonList" && gHelpButtonList
  36.   
  37.   if gHelpOffScreen then
  38.     set gHelpOffScreen = 0
  39.     open gHelpPalette
  40.     set the rect of gHelpPalette to offset(the rect of gHelpPalette, 5000, -5000)
  41.     updateStage    
  42.   end if
  43.   
  44.   
  45. end lOpenHelpPalette
  46.  
  47. on lCloseHelpPalette
  48.   global gHelpPalette, gHelpOffScreen  
  49.   
  50.   if not gHelpOffScreen then
  51.     set gHelpOffScreen = 1
  52.     set the rect of gHelpPalette to offset(the rect of gHelpPalette, -5000, 5000)
  53.     tell the stage to updateStage  
  54.     close gHelpPalette
  55.   end if
  56.   
  57.   pause
  58.   
  59. end lCloseHelpPalette
  60.  
  61. on calculateStageSize
  62.   global gHStageLeft, gHStageTop, gHStageRight, gHStageBottom
  63.   if the machineType <> 256 or the stageLeft = 0 then
  64.     --Macintosh is OK, or if the stage is full-screen
  65.     set gHStageLeft = the stageLeft
  66.     set gHStageTop = the stageTop
  67.     set gHStageRight = the stageRight
  68.     set gHStageBottom = the stageBottom
  69.   else 
  70.     --PC is buggy, must make corrections
  71.     set gHStageLeft = -the stageLeft -1
  72.     set gHStageTop = -the stageTop - 1
  73.     set gHStageRight = the stageRight + the stageLeft - gHStageLeft
  74.     set gHStageBottom = the stageBottom + the stageTop - gHStageTop 
  75.   end if
  76. end calculateStageSize
  77.